home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8189 < prev    next >
Text File  |  1993-10-08  |  1KB  |  128 lines
  1. %%BeginFile: adobe_psp_uniform_graphics
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /@a
  4. {
  5. np :M 0 rl :L 0 exch rl 0 rl :L fill
  6. }bd
  7. /@b
  8. {
  9. np :M 0 rl 0 exch rl :L 0 rl 0 exch rl fill
  10. }bd
  11. /arct where
  12. {
  13. pop
  14. }{
  15. /arct
  16. {
  17. arcto pop pop pop pop
  18. }bd
  19. }ifelse
  20. /x1 Z
  21. /x2 Z
  22. /y1 Z
  23. /y2 Z
  24. /rad Z
  25. /@q
  26. {
  27. /rad xs
  28. /y2 xs
  29. /x2 xs
  30. /y1 xs
  31. /x1 xs
  32. np
  33. x2 x1 add 2 div y1 :M
  34. x2 y1 x2 y2 rad arct
  35. x2 y2 x1 y2 rad arct
  36. x1 y2 x1 y1 rad arct
  37. x1 y1 x2 y1 rad arct
  38. fill
  39. }bd
  40. /@s
  41. {
  42. /rad xs
  43. /y2 xs
  44. /x2 xs
  45. /y1 xs
  46. /x1 xs
  47. np
  48. x2 x1 add 2 div y1 :M
  49. x2 y1 x2 y2 rad arct
  50. x2 y2 x1 y2 rad arct
  51. x1 y2 x1 y1 rad arct
  52. x1 y1 x2 y1 rad arct
  53. :K
  54. stroke
  55. }bd
  56. /@i
  57. {
  58. np 0 360 arc fill
  59. }bd
  60. /@j
  61. {
  62. gS
  63. np
  64. :T
  65. scale
  66. 0 0 .5 0 360 arc
  67. fill
  68. gR
  69. }bd
  70. /@e
  71. {
  72. np
  73. 0 360 arc
  74. :K
  75. stroke
  76. }bd
  77. /@f
  78. {
  79. np
  80. $m currentmatrix
  81. pop
  82. :T
  83. scale
  84. 0 0 .5 0 360 arc
  85. :K
  86. $m setmatrix
  87. stroke
  88. }bd
  89. /@k
  90. {
  91. gS
  92. np
  93. :T
  94. 0 0 :M
  95. 0 0 5 2 roll
  96. arc fill
  97. gR
  98. }bd
  99. /@l
  100. {
  101. gS
  102. np
  103. :T
  104. 0 0 :M
  105. scale
  106. 0 0 .5 5 -2 roll arc
  107. fill
  108. gR
  109. }bd
  110. /@m
  111. {
  112. np
  113. arc
  114. stroke
  115. }bd
  116. /@n
  117. {
  118. np
  119. $m currentmatrix
  120. pop
  121. :T
  122. scale
  123. 0 0 .5 5 -2 roll arc
  124. $m setmatrix
  125. stroke
  126. }bd
  127. %%EndFile
  128.